  '================== Procedury waciwoci =====================

  <Description("Minimalna warto wskanika"), _
  Category("Appearance")> _
  Property Minimum() As Double  ' Minimum
    Get
      Return mMin
    End Get
    Set(ByVal Value As Double)
      mMin = Value
    End Set

  End Property

  <Description("Maksymalna warto wskanika"), _
  Category("Appearance")> _
  Property Maximum() As Double   ' Maksimum
    Get
      Return mMax
    End Get
    Set(ByVal Value As Double)
      mMax = Value
    End Set

  End Property

  <Description("Warto niebezpieczna wskanika, gdzie kolor" & _
  " zmienia si na czerwony"), Category("Appearance")> _
  Property Danger() As Double    ' Warto niebezpieczna czerwonej linii 
    Get
      Return mDanger
    End Get
    Set(ByVal Value As Double)
      mDanger = Value
    End Set
  End Property

  <Description("Warto ostrzeenia wskanika, gdzie kolor" & _
  " zmienia si na ty"), Category("Appearance")> _
  Property Caution() As Double   'Warto ostrzeenia tej linii
    Get
      Return mCaution
    End Get
    Set(ByVal Value As Double)
      mCaution = Value
    End Set
  End Property

  <Description("Wysoko wskanika"), _
  Category("Appearance")> _
  Property Tall() As Integer     ' Jak wysoki jest wskanik?
    Get
      Return mTall
    End Get
    Set(ByVal Value As Integer)
      mTall = Value
    End Set
  End Property
  <Description("Szeroko wskanika"), _
  Category("Appearance")> _
  Property Wide() As Integer     ' Jak szeroki jest wskanik?
    Get
      Return mWide
    End Get
    Set(ByVal Value As Integer)
      mWide = Value
    End Set
  End Property

  <Description("Pooenie lewego brzegu wskanika"), _
  Category("Appearance")> _
  Property LeftSide() As Integer    ' Gdzie jest lewy brzeg wskanika
    Get                 ' na formularzu?
      Return mLeftSide
    End Get
    Set(ByVal Value As Integer)
      mLeftSide = Value
    End Set
  End Property

  <Description("Pooenie grnego brzegu wskanika"), _
  Category("Appearance")> _
  Property TopSide() As Integer    ' Gdzie jest gra wskanika
    Get                              ' na formularzu?
      Return mTopSide
    End Get
    Set(ByVal Value As Integer)
      mTopSide = Value
    End Set
  End Property

  <Description("Bieca warto wskanika"), _
  Category("Data")> _
  Property Current() As Double    ' Jaka jest bieca warto?
    Get
      Return mCurrent
    End Get
    Set(ByVal Value As Double)
      mCurrent = Value
    End Set
  End Property
